10 FORX=679TO747:READA:POKEX,A:D=D+A:NEXT
20 IFD<>6577THENPRINT"DATA ERROR":END
30 PRINT"ERROR CHECK ACTIVATED":SYS679
50 DATA 173,0,3,141,200,2,173,1
60 DATA 3,141,201,2,169,195,141,0
70 DATA 3,169,2,141,1,3,169,96
80 DATA 141,167,2,96,224,16,240,3
90 DATA 76,0,0,138,186,228,34,144
100 DATA 3,170,176,244,169,221,160,2
110 DATA 32,30,171,76,101,164,83,84
120 DATA 65,67,75,32,79,86,69,82
130 DATA 70,76,79,87,0,0,0,0